;redcode
;name Emerald
;author P.Kline
inc      dat #-2045,#2045
emerald  spl 0,100
stone    mov <cnt+102-300,<cnt+100
         add inc,stone
cnt      djn stone,<-3799
         end emerald